Data Visualization

Bar chart on race and sex

From the bar chart we can see most victims in NYC shooting cases from 2006 until now are male in Black. Broadly, Male victims outweigh Female victims in all races.

racesex_bar = 
  plot_ly(race_sex_vicdf, x = ~vic_race, y = ~F, type = 'bar', name = 'Female', alpha = 0.7) %>% 
  add_trace(y = ~M, name = 'Male') %>% 
  layout(yaxis = list(title = 'Count'), barmode = 'stack', colors = "viridis") %>% 
  layout(title = "Race and SEX (Victims)",
         xaxis = list(title = ""))
racesex_bar

The bar chart of sex and race distribution of Perpetrators is similar to that of Victims. We can see most Perpetrators in NYC shooting cases from 2006 until now are male in Black. Broadly, Male Perpetrators outweigh Female Perpetrators in all races.

racesex_bar = 
  plot_ly(race_sex_perpdf, x = ~perp_race, y = ~F, type = 'bar', name = 'Female', alpha = 0.7) %>% 
  add_trace(y = ~M, name = 'Male') %>% 
  layout(yaxis = list(title = 'Count'), barmode = 'stack') %>% 
  layout(title = "Race and SEX (Perpetrators)",
         xaxis = list(title = ""))
racesex_bar

Shooting cases by Borough

The Borough bar chart shows that Brooklyn area has the most shooting cases(more than 10k) and Staten Island has the least shooting cases(less than 1k) in NYC.

boro_bar = boro_df %>% 
  mutate(boro = fct_reorder(boro, count)) %>% 
  plot_ly(x = ~boro, y = ~count, color = ~boro, type = "bar", colors = "viridis", alpha = 0.8) %>% 
    layout(
      title = "Shooting cases by Borough",
      xaxis = list(title = "Borough")
      )
boro_bar

Shooting cases by location(Common)

Cases with unrecorded location are dropped. Locations where shootings happened less than 10 times from 2006 until now are dropped.The bar chart only analyzes common locations that exist shooting cases those years. We can see from the chart that public houses, apartment buildings and private houses are top 3 locations that shooting cases may happen.

location_bar = location_df %>% 
  mutate(location_desc = fct_reorder(location_desc, count)) %>% 
  plot_ly(x = ~location_desc, y = ~count, color = ~location_desc, type = "bar", colors = "viridis", alpha = 0.8) %>% 
    layout(
      title = "Shooting cases by location (common)",
      xaxis = list(title = "location")
      )
location_bar

Shooting Cases Trend before 2021 by Borough

The line plot shows the trend of shooting cases in NYC by Borough before 2021, because data in 2021 is only until the end of sepetember. Obviously, the change of year did not affect the shooting cases’ distribution among boroughs. Even though shooting rate decreased dramatically since 2014, there was a steep rise in 2020, which probably was resulted from the emergency of COVID-19.

Error in .makeMessage(..., domain = domain) : 
  argument "plot" is missing, with no default